home *** CD-ROM | disk | FTP | other *** search
/ Experimental BBS Explossion 3 / Experimental BBS Explossion III.iso / comunic / boyan51a.zip / GT-POWER.BSC < prev    next >
Text File  |  1993-11-15  |  1KB  |  52 lines
  1. \\
  2. \\ Gt Script by Lee Breeden
  3. \\
  4.  
  5. \TO[40]                       \\ sets WaitFor timeout to 40 seconds
  6. |logon
  7. \pa[1]
  8. \gb[name]
  9. |name
  10. \CA-[\QA[%SN]\HU\PA[3]\QD\eb]
  11. \wp[1]
  12. \DM[%HR: %MI]
  13. \IF+graphic[y{\gb[name]]
  14. \IF+first[\!{\gb[name]]
  15. \IF+LAST [\@{\gb[name]]
  16. \IF+Lee [y{\gb[name]]
  17. \IF+Enter Password:[%PW{\gb[name]]
  18. \IF+Password:[%PW{\gb[name]]
  19. \IF+bypass the logon bulletins?[y{\gb[name]]
  20. \IF+Check conferences for mail[N{\gb[name]]
  21. \IF+press any key to continue[{\gb[name]]
  22. \IF+Strike a key when ready[{\gb[name]]
  23. \IF+ress RETURN to continue:[{\gb[name]]
  24. \IF+desired bulletin number: [q{\gb[name]]
  25. \IF+to continue [{\gb[name]]
  26. \IF+for personal mail[N{\gb[name]]
  27. \\IF+Enter command[\eb o 9{\pa[7] \gb[mail]]
  28. \IF+FILES:  AREA[ \dm[ %SN Logon Completed! Your on your own <g>..]\eb]
  29. \IF+FILES:  AREA[\eb o 9{\pa[7] \gb[mail]]
  30. {~~\gb[name]
  31.  
  32. |mail
  33. \\ the commands below ASSUME that you have FASTMAIL set to extract mail
  34. \\ automatically, and that the maximun mail packet size is set so that you
  35. \\ never reach its limit...ie 500K.
  36. \nd[d:\gtread]
  37. \to[254]
  38. \WF[B00]\DLZ-[d:\gtread\fastmail.zip]
  39. \gb[upmail]
  40. |upmail
  41. \to[40]
  42. \wf[Enter your selection]\pa[1]
  43. \fe+d:\gtread\fastrply.zip[5~\wf[b01]\ulz-[d:\gtread\fastrply.zip]]
  44. \fe+d:\gtread\fastrply.zip[\IT+[\dc-[del d:\gtread\fastrply.zip]]]
  45. \nd[%b:]
  46. \IF+ress RETURN to continue:[\pa[1]{]
  47. \IF+Enter your selection[\pa[1] 0~{]
  48. \IF-Enter your selection[\pa[1] 0~{]
  49. \pa[10]g{\pa[2]y{\pa[4]\hu\ma[7]
  50. \eb
  51.  
  52.